home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
rlib20.zip
/
RL_NTXKE.PRG
< prev
next >
Wrap
Text File
|
1989-02-18
|
571b
|
17 lines
*--------------------------------------------------------------------------
* Function: NtxKeyVal
* Syntax..: NtxKeyVal()
* Returns.: The value from the current database(s) from the evaluation of
* the index key from the currently selected database.
*--------------------------------------------------------------------------
FUNCTION NtxKeyVal
PRIVATE f_ntx_key
f_ntx_key = INDEXKEY(0) && controlling index key expression
IF LEN(TRIM(f_ntx_key)) > 0 && evaluate only if not empty
RETURN &f_ntx_key
ENDIF
RETURN ''